home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 4 / Commodore_Disc_04_19xx_-_de.d64 / cosmic carnage64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  151 lines
  1. 10 rem cosmic carnage ============64
  2. 20 rem (p) 12/85 cbm revue team    =
  3. 30 rem =============================
  4. 40 rem (c) 12/85 by                =
  5. 50 rem klaus dillinger             =
  6. 60 rem                             =
  7. 70 rem                             =
  8. 80 rem c-64 + 1530/1541            =
  9. 90 rem =============================
  10. 100 cl$=chr$(147):wh$=chr$(5):poke53280,0:poke53281,0
  11. 110 printwh$cl$
  12. 120 fort=36864to37239:reada:poket,a:s=s+a:next
  13. 130 ifs<>18387thenprint"fehler in scroll-datas":end
  14. 140 sys9*4096
  15. 150 fort=49152to51468:reada:poket,a:l=l+a:next
  16. 160 ifl<>232611thenprint"fehler in masch-datas":end
  17. 170 sys37219:sys51376
  18. 180 rem scroll-datas
  19. 190 data120,169,144,141,21,3,169,13,141,20,3,88,96,234,173,17,208,41,128
  20. 200 data208,249,173,18,208,173,18,208,201,255,144,249,173,22,208,41,7,201
  21. 210 data0,240,6,206,22,208,76,49,234,169,7,141,22,208,162,1,189,0,4,157,255
  22. 220 data3,232,224,39,208,245,238,92,144,173,92,144,201,0,208,5,169,0,141
  23. 230 data92,144,174,92,144,189,93,144,141,38,4,88,76,49,234,255,3,15,19,13
  24. 240 data9,3,32,3,1,18,14,1,7,5,32,32,32,1,21,20,15,18,32,58,32,11,12,1,21
  25. 250 data19,32,4,9,12,12,9,14,7,5,18,32,32,32,19,20,5,21,5,18,21,14,7,32,21
  26. 260 data5,2,5,18,32,10,15,25,19,20,9,3,11,32,9,14,32,16,15,18,20,32,50,46
  27. 270 data32,23,1,5,8,18,5,14,4,32,19,9,5,32,4,9,5,19,5,32,26,5,9,12,5,14,32
  28. 280 data12,5,19,5,14,32,23,5,18,4,5,14,32,4,9,5,32,4,1,20,5,14,32,9,14,32
  29. 290 data4,5,14,32,19,16,5,9,3,8,5,18,32,5,9,14,7,5,12,5,19,5,14,46,32,19
  30. 300 data15,2,1,12,4,32,4,5,18,32,3,15,13,16,21,20,5,18,32,4,1,13,9,20,32
  31. 310 data6,5,18,20,9,7,32,9,19,20,32,2,5,7,9,14,14,20,32,4,1,19,32,19,16,9
  32. 320 data5,12,46,32,32,22,9,5,12,32,19,16,1,19,19,32,23,21,14,19,3,8,20,32
  33. 330 data9,8,14,5,14,32,11,12,1,21,19,32,4,9,12,12,9,14,7,5,18,32,78,32,71
  34. 340 data69,82,71,69,82
  35. 350 data120,169,234,141,21,3,169,49,141,20,3,88,169,200,141,22,208,32,68
  36. 360 data229,96
  37. 370 rem masch-datas
  38. 380 data206,14,220,165,1,41,251,133,1,169,32,133,98,169,208,133,100,160,0
  39. 390 data132,97,132,99,177,99,145,97,200,208,249,230,98,230,100,165,98,201
  40. 400 data48,208,239,165,1,9,4,133,1,238,14,220,173,24,208,41,240,9,8,141,24
  41. 410 data208,162,0,189,160,192,157,128,63,232,224,128,208,245,169,0,141,32
  42. 420 data208,141,33,208,169,14,141,39,208,169,1,141,40,208,169,229,141,1,208
  43. 430 data169,160,141,0,208,162,254,142,248,7,232,138,162,7,157,248,7,202,208
  44. 440 data250,141,21,208,162,0,189,32,193,157,48,39,232,224,40,208,245,189
  45. 450 data72,193,157,48,47,202,208,247,169,4,133,95,169,80,133,94,169,0,141
  46. 460 data16,208,76,0,198,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,96,0,0,96
  47. 470 data0,0,240,0,0,240,0,24,241,128,24,241,128,12,243,0,12,243,0,12,243
  48. 480 data0,15,255,0,15,255,0,12,243,0,12,243,0,12,243,0,24,97,128,24,1,128
  49. 490 data0,0,96,0,0,96,0,0,96,0,0,96,0,0,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  50. 500 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  51. 510 data0,0,66,126,90,126,66,126,126,231,153,189,165,189,255,60,36,231,24
  52. 520 data24,255,189,24,60,102,66,153,189,165,189,255,60,36,231,24,60,165,255
  53. 530 data60,36,36,102,36,126,90,126,66,126,66,195,24,60,165,255,60,36,36,102
  54. 540 data153,189,165,189,255,60,36,231,60,36,60,126,90,219,153,62,60,36,126
  55. 550 data90,90,219,36,195,32,68,229,162,40,189,1,194,157,255,3,202,208,247
  56. 560 data162,0,189,89,194,141,140,193,160,0,185,97,194,153,152,40,200,192
  57. 570 data8,208,245,173,137,193,24,105,8,141,137,193,232,224,8,208,223,169
  58. 580 data97,141,137,193,160,0,132,98,169,216,133,99,162,24,160,0,189,41,194
  59. 590 data145,98,200,192,40,208,249,152,24,101,98,133,98,144,2,230,99,202,208
  60. 600 data231,166,94,134,98,165,95,133,99,162,6,134,101,160,0,189,65,194,145
  61. 610 data98,200,200,234,192,36,208,247,198,101,165,101,106,144,10,169,125
  62. 620 data24,101,98,133,98,76,249,193,169,115,76,236,193,144,2,230,99,166,101
  63. 630 data208,212,96,19,3,15,18,5,58,32,48,48,48,48,48,48,32,32,32,32,32,32
  64. 640 data32,32,32,32,32,32,32,32,32,32,32,19,8,9,16,19,58,32,48,48,53,3,4
  65. 650 data14,7,10,13,5,7,13,5,10,13,4,14,13,3,7,4,14,7,5,10,13,1,230,231,234
  66. 660 data233,232,234,231,232,230,234,231,234,231,232,230,232,234,230,0,231
  67. 670 data234,232,0,24,40,64,72,120,128,144,152,60,102,96,96,96,102,60,0,126
  68. 680 data96,96,120,96,96,126,0,102,102,102,126,102,102,102,0,60,24,24,24,24
  69. 690 data24,60,0,60,102,102,102,102,102,60,0,124,102,102,124,96,96,96,0,124
  70. 700 data102,102,124,120,108,102,0,60,102,96,60,6,102,60,0,173,0,220,73,255
  71. 710 data170,41,4,240,43,173,16,208,41,1,240,26,206,0,208,173,0,208,201,255
  72. 720 data208,26,173,16,208,41,254,141,16,208,169,255,141,0,208,76,214,194
  73. 730 data173,0,208,201,22,144,3,206,0,208,138,41,8,240,33,173,16,208,41,1
  74. 740 data240,13,173,0,208,201,71,176,19,238,0,208,76,252,194,238,0,208,208
  75. 750 data8,173,16,208,9,1,141,16,208,32,83,196,32,113,196,138,41,16,208,1
  76. 760 data96,165,92,240,3,198,92,96,162,0,189,3,208,240,7,232,232,224,14,208
  77. 770 data245,96,173,0,208,157,2,208,169,227,157,3,208,232,232,169,1,24,10
  78. 780 data202,202,208,251,168,173,16,208,41,1,208,18,152,73,255,45,16,208,141
  79. 790 data16,208,169,18,133,92,162,5,134,93,96,152,13,16,208,76,64,195,173
  80. 800 data31,208,133,91,41,254,208,1,96,162,0,169,2,168,37,91,208,7,232,232
  81. 810 data152,10,76,97,195,72,189,3,208,56,233,49,41,248,133,98,160,4,132,99
  82. 820 data160,0,133,100,165,100,24,101,98,133,98,144,2,230,99,200,192,4,208
  83. 830 data240,189,2,208,133,88,160,0,104,45,16,208,240,1,200,132,89,165,88
  84. 840 data56,233,18,176,2,198,89,74,74,74,24,101,98,133,98,144,2,230,99,165
  85. 850 data89,240,11,165,98,24,105,32,133,98,144,2,230,99,169,0,157,3,208,169
  86. 860 data6,133,87,169,32,160,0,177,98,201,32,208,7,200,177,98,201,32,240,61
  87. 870 data169,32,145,98,234,162,6,254,6,4,189,6,4,201,58,208,44,169,48,157
  88. 880 data6,4,202,224,4,240,7,224,0,208,232,76,27,196,138,168,162,3,254,36
  89. 890 data4,189,36,4,201,58,208,8,169,48,157,36,4,202,208,238,152,170,76,229
  90. 900 data195,96,165,87,208,16,169,0,141,8,212,169,200,141,7,212,169,32,141
  91. 910 data11,212,96,162,33,142,11,212,201,4,176,16,198,87,24,105,4,10,10,141
  92. 920 data8,212,169,0,141,7,212,96,198,87,24,73,255,41,7,76,62,196,165,93,208
  93. 930 data6,169,128,141,4,212,96,201,5,240,3,198,93,96,169,129,141,4,212,169
  94. 940 data9,141,1,212,198,93,96,138,168,162,0,189,3,208,240,15,201,60,208,8
  95. 950 data169,0,157,3,208,76,137,196,222,3,208,232,232,224,14,208,230,152,170
  96. 960 data96,198,85,240,1,96,162,0,134,86,134,141,32,0,199,234,234,234,169
  97. 970 data151,133,98,169,7,133,99,133,140,169,152,133,139,169,0,133,86,162
  98. 980 data23,134,83,165,83,106,176,35,160,39,177,139,160,79,145,139,160,39
  99. 990 data177,98,201,32,208,14,145,139,136,208,245,160,0,169,32,145,139,76
  100. 1000 data2,197,230,141,76,206,196,160,0,177,139,160,40,145,139,160,1,177,139
  101. 1010 data201,32,208,12,145,98,200,192,40,208,243,160,39,76,213,196,230,141
  102. 1020 data76,241,196,165,98,56,233,40,133,98,176,2,198,99,165,139,56,233,40
  103. 1030 data133,139,176,2,198,140,198,83,208,157,173,24,208,201,25,208,8,169
  104. 1040 data27,141,24,208,76,48,197,169,25,141,24,208,165,141,230,85,74,208,251
  105. 1050 data165,85,133,143,230,85,32,0,199,165,141,240,1,96,230,142,165,142,201
  106. 1060 data128,208,247,169,0,133,142,162,12,169,0,157,2,208,202,208,250,141
  107. 1070 data16,208,169,160,141,0,208,189,113,197,157,16,6,232,224,23,208,245
  108. 1080 data76,136,197,14,15,23,32,5,14,20,5,18,9,14,7,32,14,5,24,20,32,12,5
  109. 1090 data22,5,12,169,25,141,24,208,162,0,189,157,197,157,66,6,232,224,6,208
  110. 1100 data245,76,163,197,146,133,148,149,146,142,32,87,196,169,0,133,198,162
  111. 1110 data0,157,16,218,24,105,1,232,164,197,192,1,240,12,160,96,136,208,253
  112. 1120 data224,79,208,234,76,170,197,169,32,162,0,157,16,6,232,208,250,165,94
  113. 1130 data201,200,208,6,165,95,201,4,240,11,165,94,24,105,40,133,94,144,2,230
  114. 1140 data95,32,166,193,96,162,254,142,248,7,232,138,162,7,157,248,7,202,208
  115. 1150 data250,96,0,0,0,0,0,0,169,15,141,24,212,169,0,141,5,212,169,249,141
  116. 1160 data6,212,169,9,141,1,212,162,7,169,1,157,39,208,202,208,248,169,0,141
  117. 1170 data12,212,169,249,141,13,212,169,0,133,87,169,1,133,85,133,175,169,7
  118. 1180 data133,174,169,0,141,19,212,169,240,141,20,212,169,0,133,175,169,0,141
  119. 1190 data14,212,133,142,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  120. 1200 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  121. 1210 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  122. 1220 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  123. 1230 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  124. 1240 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,165,142,201,10,176
  125. 1250 data33,198,175,165,175,74,144,21,198,174,169,33,141,18,212,165,174,141
  126. 1260 data15,212,201,4,176,4,169,7,133,174,96,169,128,141,18,212,96,165,91
  127. 1270 data41,1,240,249,169,0,141,16,208,160,12,153,2,208,136,208,250,169,160
  128. 1280 data141,0,208,162,0,169,32,157,72,7,232,224,119,208,248,173,30,208,162
  129. 1290 data3,222,36,4,189,36,4,201,47,208,8,169,57,157,36,4,202,208,238,160
  130. 1300 data0,162,3,189,36,4,201,57,240,2,160,1,202,208,244,192,1,240,3,76,201
  131. 1310 data199,162,0,189,163,199,157,152,7,232,224,38,208,245,169,27,141,24
  132. 1320 data208,169,0,133,198,165,197,201,1,208,250,169,32,162,0,157,112,7,232
  133. 1330 data224,119,208,248,96,89,79,85,32,76,79,83,84,32,65,32,83,72,73,80,32
  134. 1340 data32,32,32,32,32,71,79,32,79,78,32,87,73,84,72,32,82,69,84,85,82,78
  135. 1350 data162,6,189,6,4,157,6,201,202,208,247,32,68,229,169,0,141,21,208,162
  136. 1360 data1,189,6,201,221,0,201,144,31,208,18,232,224,7,208,241,76,5,200,0
  137. 1370 data0,0,0,0,0,0,0,0,0,162,6,189,6,201,157,0,201,202,208,247,162,0,189
  138. 1380 data21,200,32,210,255,232,224,106,208,245,76,127,200,13,13,13,13,13,13
  139. 1390 data13,13,13,13,83,67,79,82,69,32,58,32,48,48,48,48,48,48,32,32,32,32
  140. 1400 data32,32,32,76,65,83,84,32,83,72,73,80,32,68,69,83,84,82,79,89,69,68
  141. 1410 data13,72,73,45,83,67,79,82,69,32,58,32,48,48,48,48,48,48,32,32,32,80
  142. 1420 data82,69,83,83,32,66,85,84,84,79,78,32,84,79,32,80,76,65,89,13,81,32
  143. 1430 data84,79,32,81,85,73,84,32,71,65,77,69,162,6,189,6,201,157,151,5,189
  144. 1440 data0,201,157,234,5,202,208,241,169,25,141,24,208,169,0,133,198,165,197
  145. 1450 data201,62,240,12,173,0,220,73,255,41,16,240,241,76,176,200,76,226,252
  146. 1460 data0,0,32,0,192,32,112,193,32,161,194,32,234,197,32,83,195,32,28,196
  147. 1470 data32,146,196,32,40,199,32,83,196,166,143,189,224,200,170,160,32,136
  148. 1480 data208,253,202,208,250,76,182,200,234,234,234,234,1,2,4,5,7,7,7,7,7
  149. 1490 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,48,48,48,48,48
  150. 1500 data48,48,48,48,48,48
  151.